﻿Public Class clsGJBinfo
    Public Function getListByDlNo(dl_no As String) As DataTable
        Dim szSql As String = "select * from sf.b_gjb_dl_info where factory_id =? And dl_no_lr=? and status=? "
        Return DBacs.ExecuteSql(szSql, -1, "TS", dl_no, "0")
    End Function
End Class
